REPORT zdemo alv2. 


类 类 火炎 类 类 头 类 类 类 类 类 关头 类 类 类 类 类 关头 类 类 类 头头 关 类 


* ALV vs. Non ALV. 的 


炎炎 类 火炎 类 类 类 类 头头 关头 头头 类 类 类 关头 关头 火炎 头头 头 关 


类 类 类 类 类 类 头头 类 类 类 头头 关头 类 类 关头 头 关头 类 关头 头头 头头 炎 类 关头 头头 头头 类 类 头头 类 


* Automatic and Semi-Auytomatic Catalog * 
关 凑 痰 交 类 类 交火 交 类 凑 类 次 关头 次 痰 浆 交 次 次 关 类 次 次 凑 痰 交 次 类 次 痰 类 次 关头 关 类 交 类 类 类 


TYPE-POOLS slis. 


DATA : v_ebeln TYPE ebeln, 
it_ekko TYPE TABLE OF ekko, 
wa_ekko TYPE ekko, 
it fieldcat TYPE slis t fieldcat alv, 
wa fieldcat TYPE LINE OF slis t fieldcat alv. 


类 火炎 类 类 关头 关 类 类 类 关头 类 类 类 类 头头 类 头头 炒 头头 


3 Constants 类 
六 类 类 六 类 六 六 六 六 类 六 六 类 六 六 六 六 六 六 六 六 六 六 六 类 


CONSTANTS : c check TYPE c VALUE 'X', c_unchk TYPE c VAL 
UE '.'. 


类 类 火炎 类 类 头头 类 类 头头 头 类 类 类 类 类 类 类 头头 类 类 类 


这 Selection-optionSs * 
类 火炎 类 类 类 关头 冰 头头 关头 关头 关头 头 类 炒 火炎 类 冰火 


SELECT-OPTIONS s ebeln FOR v_ebeln DEFAULT 450000637 
4 TO 4500006380. 


类 类 类 火炎 类 头头 火炎 头 类 类 关头 类 类 类 类 类 头头 头头 阔 


* Selection-screens * 
关 痰 痰 米 类 类 六 类 类 类 类 类 类 类 六 六 六 六 六 六 六 六 六 六 类 


SELECTION-SCREEN BEGIN OF BLOCK bl WITH FRAME TITLE 
text-t01. 


PARAMETERS : rb_nalv RADIOBUTTON GROUP gl, rb_alv RAD 
IOBUTTON GROUP g1. 


SELECTION-SCREEN END OF BLOCK b1. 


SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE 
text-t02. 


PARAMETERS : rb _auto RADIOBUTTON GROUP g2, rb_sauto R 
ADIOBUTTON GROUP 9g2. 


SELECTION-SCREEN END OF BLOCK b2. 


炎炎 类 类 火炎 头头 类 头头 类 类 头头 火 头头 类 类 类 头头 头头 头头 关 


* START-OF-SELECTION * 


类 类 火炎 类 类 头 关头 头头 类 关头 类 类 头头 类 关头 关头 头头 炒 头 类 


START-OF-SELECTION. 


SELECT * INTO TABLE it ekko FROM ekko WHERE ebeln INs 
_ebeln. 


类 类 类 火炎 类 类 关头 关 类 类 关头 类 类 类 类 类 关头 类 头头 关 类 头头 


* END-OF-SELECTION * 


类 类 类 类 类 类 头 类 类 头头 类 类 头头 关头 类 类 关头 类 头头 关 类 头头 


END-OF-SELECTION. 


IF it_ekko IS NOT INITIAL . 


IF rb_nalv = c_check. 
ULINE. 


WRITE :/ 'PO NO' COLOR 1, 12 sy-vline, 13 'DATE' COLOR 
3 
23 sy-vline , 24 'vendor' COLOR 1. 
ULINE. 


类 类 类 类 类 关头 关 类 类 类 类 类 类 类 类 类 类 类 头头 类 类 类 类 头头 关 头头 类 类 头头 头头 类 


Display through Non - ALV 和 


类 类 火炎 类 关头 类 类 类 类 类 类 类 类 类 类 类 头头 类 关头 类 类 头头 关 头头 类 关头 关头 关头 


LOOP AT it_ ekko INTO wa_ekko. 
WRITE :/ wa_ekko-ebeln COLOR 2， 
wa ekko-aedat COLOR 5， 
WwWa_ekko-lifnr COLOR 7. 
ENDLOOP. 


ELSEIF rb alv = C_check. 
IF rb auto = C check 


炎炎 类 炎 类 类 头头 类 头头 类 类 类 类 类 头头 类 类 关头 头头 头 炒 头 关头 类 头头 炒 关头 头头 类 


7 REUSE ALV GRID DISPLAY * 


痰 交 冰 冰火 痰 交 冰 头 关 次 浆 浆 头 凑 交 类 交 关头 次 次 冰 头头 次 交 次 冰 头头 次 交 次 头 头 交 交 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 


EXPORTING 

i_structure name = 'ekko' 
TABLES 

t outtab = it ekko. 


ELSEIF rb _ sauto = c¢ check. 
类 类 类 类 关头 关 类 类 涛 类 涛 类 类 类 关头 状 类 类 类 类 头 涛 头头 头 类 类 类 类 类 类 头头 关头 关 类 类 头头 头头 关头 


REUSE ALV FIELDCATALOG MERGE * 


炎炎 类 炎 类 类 头头 类 头头 类 类 头头 类 头头 关头 类 头头 关头 头头 关头 类 类 类 类 关头 关头 类 关头 类 头头 关 类 类 


CALL FUNCTION 'REUSE ALV FIELDCATALOG MERGE' 


EXPORTING 

i_structure name = 'ekko' 
CHANGING 

ct fieldcat = it fieldcat. 


CLEAR wa fieldcat. 
wa fieldcat-emphasize = 'C311.. 


类 类 类 火炎 关头 类 火炎 头 炎 关头 头 火 头头 炒 头 关 


* Modify operation * 
关头 痰 交火 关头 痰 效 浆 六 次 次 关头 关头 类 关头 类 


MODIFY it fieldcat FROM wa fieldcat TRANSPORTING e 
mphasize 
WHERE fieldname = 'LIF 
NR 


类 类 类 类 类 类 头头 类 头头 类 头头 涛 类 头头 关头 关头 头 关 头头 头 类 头头 类 类 类 类 类 头头 类 


+ REUSE ALV GRID DISPLAY * 


类 类 类 类 类 类 类 类 类 头头 类 类 头头 关头 类 类 头头 头头 头头 类 类 类 头头 类 类 类 类 类 头头 类 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 


EXPORTING 
it fieldcat = it fieldcat 
TABLES 
t outtab = it ekko. 
ENDIF. 
ENDIF. 


ENDIF. 


